prolog './g032.ijs'
NB. _: ------------------------------------------------------------------

_ -: _: 1=?2 3 4$2
_ -: _: a.{~? 10##a.
_ -: _: _20+?3 2$40
_ -: _: o. _20+?13$40
_ -: _: r.?13$40
__ -: __: 1=?2 3 4$2

_ -: (1=?2 3 4$2) _: 1=?2 3 4$2
_ -: (1=?2 3 4$2) _: a.{~? 10##a.
_ -: (1=?2 3 4$2) _: _20+?3 2$40
_ -: (1=?2 3 4$2) _: o. _20+?13$40
_ -: (1=?2 3 4$2) _: r.?13$40
__ -: (1=?2 3 4$2) __: 1=?2 3 4$2

_ -: (a.{~? 10##a.) _: 1=?2 3 4$2
_ -: (a.{~? 10##a.) _: a.{~? 10##a.
_ -: (a.{~? 10##a.) _: _20+?3 2$40
_ -: (a.{~? 10##a.) _: o. _20+?13$40
_ -: (a.{~? 10##a.) _: r.?13$40

_ -: (_20+?3 2$40) _: 1=?2 3 4$2
_ -: (_20+?3 2$40) _: a.{~? 10##a.
_ -: (_20+?3 2$40) _: _20+?3 2$40
_ -: (_20+?3 2$40) _: o. _20+?13$40
_ -: (_20+?3 2$40) _: r.?13$40

_ -: (o. _20+?13$40) _: 1=?2 3 4$2
_ -: (o. _20+?13$40) _: a.{~? 10##a.
_ -: (o. _20+?13$40) _: _20+?3 2$40
_ -: (o. _20+?13$40) _: o. _20+?13$40
_ -: (o. _20+?13$40) _: r.?13$40

_ -: (r.?13$40) _: 1=?2 3 4$2
_ -: (r.?13$40) _: a.{~? 10##a.
_ -: (r.?13$40) _: _20+?3 2$40
_ -: (r.?13$40) _: o. _20+?13$40
_ -: (r.?13$40) _: r.?13$40



epilog''

